raktar.dbf

cod c(9)     primary 
aruneve c(30)   asc
egyara N(7,3)   asc
dbszam N(10)   desc
helyseg C(40)


1.

close all
select 0
use raktar
select * from raktar where egyara=25

2.

close all
select 0
use raktar
select aruneve, egyara, cod, dbszam from raktar where dbszam>0

3.

close all
select 0
use raktar
select aruneve, max(egyara) as sajatar from raktar where dbszam=0

4.

close all
select 0
use raktar
delete for helyseg=[Zilah]
pack
browse

5.

close all
select 0
use raktar
delete for egyara=75
pack
browse


Project Manager ---> Code fule----> Programs---> New...
program5.prg

do program5.prg


6.

close all
select 0
use raktar
delete for helyseg=alltrim(thisform.text1.value)
pack
browse

7.a

close all
select 0
use raktar
delete for egyara=val(alltrim(thisform.text1.value))
pack
browse


close all
select 0
use raktar
delete for str(egyara)=alltrim(thisform.text1.value)
pack
browse


7.b

close all
select 0
use raktar
delete for egyara=thisform.spinner1.value
pack
browse


8.a

close all
select 0
use raktar
select count(helyseg) as ennyi from raktar where helyseg=thisform.combo1.value;
into table talalt


8.a

close all
select 0
use raktar
select count(helyseg) as ennyi from raktar where helyseg=thisform.combo1.value;
into cursor talalt

9.
close all
select 0
use raktar
select min(egyara) as ujar from raktar into cursor arak

select raktar
go top
for i=1 to reccount()

     if egyara=arak.ujar
        update raktar set dbszam=dbszam+k
     endif
   skip 1
endfor
brows


